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This is a mosaic description of PDP-6 LISP, intended for readers familiar with the 
LISP 1-5 Programmer ! s Manual or who have used LISP on some other computer. Sokc of 
the newer features (eg, the display) arc experimental and subject to change} 1ft 
such respects this should not be regarded as a final document i 

SOME DIST1KCT1VE CHARACTERISTICS 

Top-level typein is to EVAL- There is no EVALQUOTEr 

EQUAL will not correctly compare fixed -point numbers to floating-point. 
Also (ZEROP 0.0) is NIL. 

T and NIL evaluate to T and NIL. There are not *T* and F* 

Interpreted variables, and variables used free in compiled functions, 
are automatically SPECIAL and may be used without restriction to commun- 
icate values* Also any PROG And LAXBDA variables in a compiled function 
may be declared SPECIAL, and will be bound and restored correctly* 
CG>0*QN does not exist* 

Flags are not allowed; elements on a property list of an atom are expected 
to be paired. 



MAP p MAPCARj etc. assume the first argument is the function, and the 
second is the list* 

Defining of functions ia usually done with DEFPROF. 









DETAILS 



Type'in is to EVAL: one types OBJECT (followd by a space) to get the value of an atom, 
or (FN {QUOTE ARC1) (QUOTE ARG2) . . .) to apply a function to arguments. (Frequently 
users arrange their top-level functions to be FSUBR/FEXPKs to avoid the necessity of 
quoting the arguments.) Carriage-return and linefeed characters are Ignored • Space 
and comma are identical, and separate elements of lists; spaces are ignored when 
adjacent to parentheses , commas, and other spaces £ spaces also distinguish dot notation 
from f loating-poSnt numbers and decimal integers. (In output % a space is always 
put to each side of a dot -notation period.] Slash (/) may be used to quote any character 
as part of a print name* 

The only i-o devices used by PDP-6 LISP are the on-line Teletype, the t>FXtapes p and 
the display- Certain characters when typed in set input and output switch** for 
top-level input, READ, and PRINT- Certain functions mentioned later feed dsta to 
the display. 

Input-output switch selection characters £ 

f/ Teletype output on 

IW Teletype output off L " * ^Iven tlme s either, neither, w both 
*- r f output devices may be selected 

lR DECtape output oft 

\T DECtape output off 



(o DECtape Input on Teletype input is initially on; reading a ftECtapts 
. „„. . „ I tnd-of-filc turns DKCtape input off and reveled* 

JS DECtape input off J Teletype input. 

£ Quit; immediately returns LISP to th* Cop lav^X* 
These characters are not seen by READ or REAPCH* 

THE ALLOCATOR 

There are five data storage areas in LISP t 

a) Free Storage; holds s-tocpresslons 

b) Full Word Spacer holds character strings of prinl names; flcaUi ap- 
point numbers; large fixed-point numbers. 

c) Binary Program Space: holds compiled functions and arrays. 

d) Special Pushdown List: hold* bindings of all special variables. 

e) Regular Pushdown Listr holds return addresses foi subroutine calls; 
bindings of all local variables; also is used by various Internal 
routines. 

Nhcn LISP is loaded, it types out ALLOC? and waits for the user to type 
in Y or N (yes or no). If Y is typed, LISP types out MEMTOP-. The user 
then types in an octal number (ended by a carriage return) which LISP 
vill take as the highest register of available memory. Then the pr florae:. 
similarly requests typed-ln parameters for the size of Full Word Space, 
Binary Program Space, Special Pushdown List, and Regular Pushdown List. 
Free Storage is given all remaining space. For any typed -In number, carriage 
return alone may be typ&d in, and a standard value will be taken: 

Parameter Standard Value 

MEMTOP 37170 

FULL WDS 400 

BIN, PROG. SP. 1000 

SPEC.PDL 

RFC, PDL 

If H is typed as the answer to ALLOC? all standard values are taken. 
In case of error, RUBOUT vill type an X and cancel the current number. 

OBJECTS 

Ob j get Indicator Eff jCt/vaXue (jl j IE Cerent frog LISP 1* 5) ___ 

Nil VALUE False value of predicates, explicitly tested for by COXD. 

(EVAl. NIL) U KIL (Nihil ex nihilo) , (MAKSUM NIL (QUOTE FIXNUK)) 
Is 0. NIL ends lists, 

T VALUE True value of predicates. (EVAL T) is T (Veritas numquan 

parit). 

numbers There are t«0 kinds of numbers: fixed-point and floft ting-point. Fixed- 
point numbers > and < about ^$100. - arc represented Ly a "pointer" 1 
greater than their value, and n* aaaitional list structure. All other 
numbers use a pointer to full-'rford space as part of an atom header with 
a FIXMUM or FLQSUM indicator, Humeri c Type-in: A number typed in with 
one or more digits to the right o£ a decimal point is taken as floating- 
point; a number without a decimal point is taken as a fixed-point integer 
in th* current input radix* IBASE (initially S) ; a typed in number coded 
by a decimal point is $ decimal integer* Numeric Type-out: Output of! i 
floating-point number will have one or tnore digits to the right of the 
decimal point; output of a fixed-point number vill be in the current c ' 
ra-dtx, BASE (Initially 8), and if that radix is IP LISP wllX end the tu :'■ 
with a decimal point- Arithmetic functions use "contagious floating poim ' 
1£ any operand is floating-point the result will be. 



CAR SUBR CAR of an atom is the "pointer" <-l r 

CDB SUBR CDR of an atom is Its property list. 

CAAR* CADR. etc. SUERa through CDDDDR any combination of 1 to 4 A's and P r » 



Takes one argument, CONSflS it to NIL, 



CONS 


SUBR 


NOOKS 


SUBR 


XCOKS 


SUBR 


QUOTE 


FSUBR 


ATOM 


StTJR 


EQ 


SUBR 


EQVAL 


SUBR 



COND 



\ 



FSU3R 



CONS with arguments reversed; used to get arguments to a CONS 
evaluated in other order. 



ATOM of any number i* T* 

Heither EQ nor EQUAL will correctly compare a fixed-point number 
to a floating-point number. EQ will work for fixed-point numbers 
lees than about 4000' otherwise use EQUAL, Floa ting-point 
numbers arc consid«H tqua] Duly Lf their values ftre exactly 
equal . 

"COSD pairs" of predicate and value day have other than two 
elements; if the first element evaluates non-null „ each of the 
others is ftvaluated (in CAR-to-CDB order), and the value of the 
last is returned for the COND, If there is only one element, 
if it is non-null it* value is returned. If no predicate is 
true, the value of the COND Is NIL. 



LIST 


FSUBR 


NOT 


SUBR 


NULL 


SUBR 


RPLACA 


SUBR 


RPLACD 


SUBR 


NCOKC 


SUBR 


APPEND 


LSUBR 



READ 


SUM 


READCH 


SUBF 


PRIK1 


SUBR 



PRINT 



SUBR 



Identical in effect, 



Appends together any number of lists; evaluates its arguments 
in CAR-to-CDR ordsr and copies the top level of all but the 

last argument. 



Reads one character from selected input device. 

Print* any s -expression* inserting slashes before characters 
vhich would not otherwise be syntactically correct as part of 
art atom's print nasr.e. 

Prints any s-expressionj does not insert slashes. Both PSIS1 
and PRINC do not apace either before or after the material tEiey 
print. 



PRINT 


SUBR 


TERPRI 


SUBR 


L2MB. 


VALUE 


CHRCT 


VALUE 



IHZEBN 



XAKNAX 






EXPLOEEC 



TYO 



SUBR 



susr 



READLIST SUBR 



EXPLCriT' SUBR 



- 



SU-IX 



FLATSUB SL'HR 



SUBR 



REVERSE 


SUBR 


EVAL 


SUBR 


APPLY 


SUBR 


MEKBER 


SUBR 


KEMQ 


SUBR 


SASSOC 


SUBR 


ASSOC 


SUBR 


SUBST 


SUBR 


CEHSYK 


SUBR 



Identical to (PROG2 (TERPRI) (PRIN1 xx) (PRIKC (QUOTE / )>>. 

Prints oarriage-returrt, line-feed. Value Is MIL* 

Used by LISP as the amber of character spaces in an output line. 

Number Of character spaces left In current output line; if CHRCT 
is and LISP outputs a character, it first Inserts carriagC- 
returti-line-fecd and resets CHRCT to LTNEL* 

Argum&nt is pointer Co atom structure; puts said atom on OBLIST 
and returns {probably new) atom pointer. 

Argument Is list of atoms whose print names are single characters 
(actually it takes the first character of each print naae) . 
Value is pointer to a-expression (the atone In which arc not 
automatically put <m the DELIST) which if printed out would 
be the concatenation of the single characters taken as arguments ► 

Like ttAKtfAK s but automatically INTERN* any atoms appearing in 
the resulting s-expressfon. 

Argument Is s-expretfsion; value Is list of atoms whose print 
names ore single characters, vhich concatenated would form the 
print of the argument. For example, (EXPLODE (QUOTE TOO)) has 
the value (F 0) . EXPLODE, like FRINl p Inserts slashes, so 
(EXPLODE (QUOTE FOO/ BAR)) PRINl's as (F // / B A R) or *s 
PRINC** as (F / BAR), 

rr^.onEC Is to TTJ-'io n/ v.-. ?m.j'-:c lb to ppm.. Bxanpla: 
(KXPLODEC (QUOTE POO/ BAR)) would FRIHl 48 (F / B A R) or 
PR1NC as (F B A &)♦ 

Argument is s-exprassian; value Is number of characters in the 
argument If the argument were printed out with PRIN2 . 

Takes on* argument, a fixed-point number; outputs (like PRINC) 
a character whose ASCII code is the integer. Its value It not 

useful. 

Reverses top level of a list. 

Takes 1 ot 2 arguments. Second should not be given unless it 
is desired to use other than the current a-llst + 

(APPLY fn (ar&s> alist) or (APPLY fn <args)K 

uses EQUAL 

like MEMBER,, but uses EQ< 



G^ffl, G0303 , etc. 



FR0G2 


SUBR 


MAFLIST 


SUBR 


MAPCAR 


SUBR 


MAP 


SUBR 


HAFC 


SUHK 


LENGTH 


SUBR 



LAST 



SUBR 



>LL"5 


LSUBR 


TIMES 


LSUBR 


DIFFERENCE 


; LSUBR 


KIHUS 


SUBR 


QUOTIENT 


LSL3R 


REMAINDER 


SUER 


ADD1 


SUBR 


SUBl 


SUBR 


NUMBERP 


SUBR 


GREATER? 


SUHH 


LESSP 


SUBR 


ZERO? 

MINX'S? 
RDWB 


SUBR 
SUBR 

PSUBK 



OR 



AND 



PSUBR 



FSUBR 



Second of any number of arguments* 

(HAPL1ST fn list) 

(KAPCAR fn list) 

Like KAPLIST, but returns NIL; does no CONSes, 

Like HAFCAft, but returns NIL; does no CONSes. 

R«turaa fixed-point number. &[[&]; tatom {l] ■* 0; 

T *addl [length [cdr ft]]]]] 

It [A] ; fatom [cdr [A]] * A; 
1 * last [cdr [All I) 

A+I4C4 ... 

A * B * C * ... 

A - B - C - ... 

- A 

A / {... * C * B) 

Works only for fixed-point numbers. 

Result is fixed or floating point, same as the argument 



■ 






Works only for fixed-point 0. 

Takes any number of atomic arguments; value is NIL. 

Returns first non-null argument or K1L; does not evaluate arguments 
past the one it returns* 

Returns last argument or NIL; does not evaluate arguments past 
the first NIL. 



PROG 


FSUBR 


SET 


SUBR 


SETQ 


TStfBR 


CO 


FSUBR 


RETURK 


SUBR 



Use SET, SETQ irtst#ad o£ CSET f CSETQ* 



GKT 



SOHR 



GETL 



HAKKUM 



;:•::::!. t. 



sitpr 



SUBK 



LSL3S 



TIME 


SUBR 


SETTIHE 


SUBR 


FIX 


SUBS 


CC 


SUBR 


GCGAG 


SUBR 



X[[s;bl; [null (cdr tall * NIL; 

£q [eadr [al ; b) ■* caddr [a]; 

T •+ s et [cddr [a]; b])l 
A typical ufift? (GET {QUOTE atom) (QUOTE Indicator)) returns 
the property (NIL if it is absent) - 

Similar to GET, but second argument Is a list of indie a Tore. 
Value returned is CD,.*DR of first argument such that 
(CAR (G!rTL -..)) is the indicator and (CADR (GETL ...)) is 
the property. GETL, lile GET, stops ac the first satisfactory 
pjiir on the property list. 

Turns a pointer (machine address) into a number: Che second 
argument ghould be (QUOTE FIXNUM) or (QUOTE RjWKFM) to rlofcarfttrtO 
the type of the result. 

Used in the form (BOOLE n a b c <».}*• A 3£-bit bitwise Boolean 
operation is performed and a_ s the result and b> etc. The 
number n_ selects the operation,, according to tSi^ following ch&s 
bit of a/bit of b 

L 



1 n. 



where n, is the Ith bit 
of n. 



■3 "4 

Examples of n: 1 is LOGATCDj 7 is LOGOR; 6 is LQGXOR* 

Returns value of 60-cycle elapso.d time counter. *~*- 

Sets (TI>3E} counter to value of argument- 

Argument is fixed- or floating-point number; value is (truncated) 
fixed point value of argument. 

Takes no arguments* causes garbage collection* returns value NIL. 

(GCGAG T) turns on typeout of statistics Fo.* each g,irb#ge collection. 
(GCGAG NIL) turns it off. 



SPEAK SUBR 
EXAMINE - SDBR 



b;;v::srr 



PUTPROP 



icKr-fPROF 



TiEfPROl 1 



li-A^GAG 



s'>m 



SUEK 



SITBK 



rKi::-in 



SUBR 



Has value of COWS counter. 

Argument is number, which is taken as an absolute niching address; 
vaJuC- Js contents of said address es a fixet-point number* 

First firgiiTnertt is an address, as for EXAMINE; second argument 
is a fijtfrd-point number to be deposited thereinto. 

Adds a property to an atom, (PUTPROP (QUOTE atom) (QUOTE propctty) 
(QUOTE indicator)) Value is the property. 

Removes a property r (REHPROP (QUOTE atom) (QUOTE Indicator)) 
Value is T if property was there, MIL otherwise. 

A common top-level defining function: Ilk* PUTS fc ROr fc £HC£pC 
(a) arguments are not evaluated , (b) value is the atom* 

(MKGAG T) enables backtrace printout on any LISP error; (M. 
NIL) disables it. A backtrace is printed as a series of functi i 
call*, most recent (deepest) first: 



ERRSET 



STOKF 



USTUKE 



COMPILE 



LAP 



Enl-fpJZ 

fnl-EVALARGS 

fnl-ENTER 
7 -fnl 



fnl calls fn2 

arguments being evaluated preparjifccry 

to calling, fnl 
fnl being evaluated 
? represents an internal, routine 



Kim 



(ERRSET (fti args..»)) has the value NIL 
evaluating (fn args..,) and LIST of the 
otherwise. 



if an error occurs while 
value of (£n args...) 



T.F..K 


EU3E 


BASS 


VALUE 


IBASE 


VALUE 


BPORG 


VALUE 


BPENB 


VALUE 


ASSAY 


FSUBR 



FSUBR 



FSUBR 



FSUER 



Causes a non-printing error. 

Radix of fixed-point nuaber output. May be modified by SETQ r 

Radix of fixed-point number input. May be modified by SETQ. 

Current lowest unused location of Binary Program Space. 

Eighest location available for use as Binary Program Space. 

(ARRAY name par diml dim2 -,.) sets up n_:v-_g_ as an art£.y (actually 
as a SUBR)* par should be T to protect Array *l«anaats from 
garbage collection; otherwise MIL- Then (nnme indxl Jndx2 . **) 
returns the value of an element , and (STORE (name irulxl md&2 Vi( ) 
neuval) sets the value of an element. An array may have no more 
than 5 dimensions; Indices run from to dim-1* 

(NSTORE (name indxl indx2 *..) number) deposits the low-order 
18 bits of the number in the array. Both NSTORE and STORE eval- 
uate their second argument before their first. 

Arguments arc flancs of EXPRs and FEXFFs ■ COMPILE uses PRINT to 
output each argument function in LAP-readable machine language * 



FSUBR ot FEXPR (LAP name indicator), where the indicator Is SUBR, FSUBR, 
or L5UBR, causes LAP to call READ repeatedly* each time reading 
one Cag or storage word. An atora is taken as a tag, except for 
NIL which indicates the end of the function being read; a non- 
atomic s-expression is taken as a storage word in the following 
format; (Inst Ace Adr) or (Inst Ace Adr Indx) . Inst should be 
a PPP-6 instruction mnemonic, optionally suf fixed Q for the 
indirect bit. Ace should be a number ft - 17 or P, the push- 
down pointer. Adr nay be a numeric machine address, a Cag in 
that function, a negative number, one of certain symbols for 
entry points to LISP Internal routines, or a list in one of 
the following forms: (QUOTE atom) a pointer to atom; (SPECIAL 
atom) the special/value cell of atom ; (E atom) like QUOTE, used 
Ntltfl atom Is the nan* of a function being called; (C w x y i) 
,i constant, i.e. a location containing storage vord (w x y ?), 
Indx is an optional left-half quantity, such as an Index register 
specification; Indx takes the same form a* Adr - 

The best way to get hand-coded functions Into the system is with LAP. 
A SURR taay have no more than 5 arguments. The value of the- Ffrsl; is 
expected in register 1, that of the second In 2, etc. The Viilw of ;i 
function is returned in register 1. Locations 1 through 7 are clt* CHfLTf 

accumulators available for use within a subroutine, Au FSU15K has oiu- 
argument* In 1, (The current. a-Iist may be poiini by calling *AMAKF..] 



An I.SUBR may have any timber of argument*: their values are cm the pushdown 
list, last argument nearest the free end. The firs p . instruction an r.SUBR .- 
performs roust be (JSP 3 *WAtL) „ 

Four UUO (trap) Instructions are. available for LAP: CALL, JCALL* CALLF t 
and JCALLr-\ These are tc be used for function calls In the form 
(CALL n (E funct)) where the number n is the number of arguments being 
transferred (or a code for the type of funct 4 an being called) as follows; 
fl - 5 colling SUBR or EXPR, to 5 arguments. 



16 



a 



17 



fi 



calling LSDBRj arguments on pushdown list,, -(number of 

arguments) in register 6 + 
calling FSUHB or FEXPR, argument list in 1. 



When one of Lhese UVOa is first executed, the UlfO handler will: 
call the interpreter if calling an EXPR or FEXPR; 
otherwise In the case of CALL wtU change the CALL UUO to a 

VUSlU ■<:• l'..i'. ;"iiiu":t5on li:iU- ;i:u! i-x-fjCH ;.\V !'l ( S!i.j; ill t'i.t CJS£ 

of JCAtl will change the JCALL to a JftST to the function code 
and execute said JRSTj in the case of CALIF will FUSHJ to the 
function but not change the UUO; in the case of JCALLF will 
JRST but not change the 000* 

The F forms of UUO arc necessary to call functions whose naraes are computed; 

the J forms save code In the case of (RETURN (fn «**>)- 



SPECIAL FSUBtt fart of the compiler. Takes any number of 

variable names. This defines the™ && SPEC! 
All variables are either SPECIAL, or local 
function - Communication of variable values 
end vithin interpreted functions, roust be d 
variables* All interpreted variables are a 
Except as countermanded by a (SPECIAL .-.)j 
all LAMBDA- and PROG-var tables in functions 
local to said functions* Free variables us 
being compiled are assumed SPECIAL, and the 
(var UNDECLARED). If a function not define 
function being compiled, the compiler print 
and assumes it will he # SUftft or EX PR, 



arguments, which are 

AL to the compiler - 

to a particular compiled 

between funct ions , 
one with SPECIAL 
utomatically SPECIAL. 

the compiler assumes 

it compiles are 
ed in a function 

compiler prints out 
i Is called by a 
s out (tunc tTN&EFINED) 



DISLIST VALUE Sfet by the user, and taken by LIS?, as a list of arrays to be 

displayed on the scope. Vor the case of one such array t the 
form is (SETQ DISLIST (LIST (GET (QUOTE arrayname) (QUOTE SUBR)))) 
The successive array elements are the actual 16-bit data words 
sent to the display. 

DISIKI SUBR (DISIKI (QUOTE arrayname)) initializes an array to be displayed 

froa. An array should not be put on the D1SLI5T until it has 
been DJSIKIed. DISINI erases the previous contents of the array. 

D1SAD SUBR (DISAD (QUOTE arrayname) par axg) in effect perform* a PRINT 

or PRIWC (according as par evaluates to T or NIL) of arft Into 
an array being displayed. In other words, the text of an s- 
expression is appended to the text currently in such an array - 

DISCNT VALUE Number of character spaces remaining in current line on scope. 

(DISAD inserts carriage-return^ line-feed vhen this reaches 
and resets it to LIKEL,) 



D IS DTI puts data in the array to initialise the display at the upper lefl 
corner, Hence if more titan one such array were on the SISLIST their content:* 



PNAME 

•FLDKKH 

VALUE 

LAtfBDA 
LABEL 

SUBR 

FSITBR 

ARG 



LSUBR 

EXPR 

FEXPR 

SYM 

ki:ka?G 

MACRO 



would overwrite each other on the scope. However, by the function >>r 
it Is possible tr> put data in an array for display other than the up 
left initialization, of DI5INI and the character strings of DT3AD. In 
that case ic might be useful to have nore than one dls-playcct arrav. Fat 
further details on the display feature, consult a Pl)J'-6 systems program.- 

Indicator for print name structure. 

Indicator for fixed -point number. 

Indicator for f loating-pclnt number . 

Indicator for value property (similar to APVAL of LISP 1.5): 
the value Is actually CDR of the property {CAR of it is WTL) , 
So CSETQ F00 (QUOTE (A B C))) has the same effect ae (D&rPRO? 
F00 (MIL ABC) VALUE), 



Indicator for subroutine* 

indicator for special-forw subroutine. ... 

SUBR The format (LAKBDA VAR (for* --*)>, where th* "LAXBDA-ldst 11 

is an atom, Is Interpreted #s a function which Calces any number 
of arguments. The bound variable; VAR takes the value of the 
number of arguments actually supplied at any given call. The 
values of these arguments are available with the notation 
(ARG 1), (ARC 2), etc. The compiLer will compile Such an EXPR 
into an LSUBR, which will perforn eh* sane. 

Indicator for LSUBR 4 



Ir.d Icator for s-eM.prer.fl i on )"•:--•.■ c '■:•:. _ 

Indicator for s-ex press ion special form. 

may have 1 or 2 elements. 

Indicator for symbol value used by LAF* 



A FEXPR 1 * UWttA-li»t 



Indicator of a MACRO property* expanded at compile line (and 
properly simulated by th* interpreter) , Th* property should 
be a function of one argument. When a call Is encountered to 
a function with a MACRO property, the Use vhlch is the function 
call is fed, devaluated, to the macro definition as the one 

nrgii-eiit * (K,g, CAR of the argument is the ft: tic t J-rm n,v '■■.' 
Then the MACRO property function la expanded t recursively if 
neccaBsry t with CAR* CADR fc etc- of its argument replied by 
the elements of the function call as written. For example, 
COKSCOHS might be defined as a inacro in the fcliovJn& va]N 
(DEFPROP CONSCONS (LAMBDA (L) 

(COKD (<KULL (CDDR I)) (CA&R, h) ) 
(T (LIST (QUOTE COKS) 
(CADR L) 
CCOSS CCAR L) 

CCUUR 1)))))) 



OBLIST 


VALUE 


SPECBIND 


sra 


SPECSTR 


SYM 


NUMVAL 


SYM 



FIX1A 



SYM 



in which case (CON SCONS ABC) would oxpfind to '-- 

(CONS A (CONSCOKS B O), then to 
(COM3 A (CONS B (COKSCONS C>)>. find finally 
(CONS A (CONS B C)) which is what would be compiled 

or interpreted* 

The object list, a list of buckets of atoms. 

Called to cause new-level bindings of special variables. A use 
would resemble (JSP 6 SPECBtND) (fl ft VAfU) (0 VAK2) etc* (INST...) 

Called by PUSHJ to restore most resent batch of apecinl bindlnga. 

{PUSHJ P NUMVAL) assures a LISP number In 1? returns the 36-bit 
numeric value in 1 and the type (F1XHU13 or FLONUK) in 2. 

(PUSHJ P FIX1A) turns the actual fixed-point number in 1 into 
a LISP number. 



*PLUS 


£13?. 


*TIMES 


SUBR 


*DIF 


Sl'BR 


■'■cue 


SUBR m 


*APPEND 


SITBR 


FUNCTION 


FSITBR 



♦FUNCTION FSUBR 



IOC 



IOC 



NOUUC 



FSUBR 



SUBR 



SL'SR 



*EVAL 


SITBR 


*RSET 


SUBR 




■ 



PLUS of 2 arguments. 

TIMES of 2 arguments. 

DIFFERENCE of 2 arguments . 

QUOTIENT of 2 argument*. _ 

APPEND of 2 arguments. 

Does not cause FUNARG binding when interpreted. 

Causes FUMRG binding when interpreted j otherwise Identical to 
FUNCTION. 

In-out device selection* The argument is EXFLODEd; the resulting 
character string is aodifled as if It had bum t>pcd in with 
the CTRL key held; <w& then it is fed to the i-o switch processor* 
for example ,, (IOC VR) has the sine effect as typing in VR. 

(IOC chars (FUNCTION fn)> saves up the current state of all i-o 
switches; then feeds the value of chars at the i-o switch processor; 
then performs £n; then restores the eld i-o switch settings. 

(NOUUO T) prohibits the UUO handler from changing UUO calls to 
PUSIU or JRST. (NOUUO NIL) restores that ability. 

EUAL of 1 argument* 

(*RSET T) prevents restoring bindings of special variables when 
returning, to the tsp level due no ao BRftlTi (*RSET NIL) resumes 
auch restoring. 



CURRENT PFOra.RHS 



If in the Hat of performed values of * COHD argument of a PR0G2 list there 
occur* a RETURN or GO, any following values will be performed If the esprescJ- 
Is Interpreted, but not if it is corapiled. 



